Monster Media 1994 #2/Monster Media No. 2 (Monster Media)(1994).ISO/finance/cs4_b.zip/COMPARE2.STY

Text File | 1994-05-15 | 3KB | 114 lines

@IF @SA > {2} THEN
 @UE
@EI
@MA8 @MD00 @MC+ @MK1 @MU- @MS-
> @VS01 := "FIRST_TIME"
@IF @RD = "SCREEN" THEN
@MH2
> @VN82 := {0}
@IF @RG = "CATEGORY"
Categories
@EI
@IF @RG = "PAYEE" THEN
Payees    ;
@EI
@IF @RG = "MEMO" THEN
Memos     ;
@EI
                         @SI01---   @SI02---       Diff   % of Diff 
═══════════════════════════════   ════════  ════════  ═════════ ═══════════ 
@EL
@PA ;
> @VN82 := {1}
@EI

@LA12345
@IF {@VN82} = {1} THEN
> @VN81 := {5}  ; form feed counter
> @VN82 := {0}
@MI{@RI} @HC------ @MT+ @HN------------------------------------------------------------ @MT- 
@MI{@RI} @HA-----  @MT+ @HS------   through   @HE------                                 @MT- 
 
@IF @RG = "CATEGORY"
@MI{@RI} Categories
@EI
@IF @RG = "PAYEE" THEN
@MI{@RI} Payees    ;
@EI
@IF @RG = "MEMO" THEN
@MI{@RI} Memos     ;
@EI
                       @SI01---   @SI02---       Diff     % of Diff
@MI{@RI} ==============================  ========  ========  =========   ===========
@EI
> @VN40 := {@SH02-@SH01}
> @VS99 := "       0"
> @VN81 := {@VN81+1}  ; increase form feed counter
@IF {@SH00} > {0} THEN
> @VN90 := {1}                ; Check for any income category
@EI
@IF @RD = "SCREEN" THEN
@SN---------------------------     @SH01---   @SH02---    @MS+ @VN40---
@EL
 @IF @RC = "MAJOR" THEN
@MI{@RI} @SN---------------------------   @SH01---   @SH02---    @MS+ @VN40---   ;
 @EL
@MI{@RI} @SN---------------------------   @SH01---   @SH02---    @MS+ @VN40---   ;
 @EI
@EI
> @VS02 := "Up"
@IF {@SH01 + @SH02} = {0} THEN
> @VN40 := {0}
> @VS02 := "--"
@EL @IF {@SH01} = {@SH02} THEN
> @VN40 := {0}
> @VS02 := "--"
@EL @IF {@SH01} = {0} THEN
> @VN40 := {100}
@EL @IF {@SH02} = {0} THEN
> @VN40 := {-100}
@EL
> @VN40 := {((@SH02-@SH01)/@SH02)*100}
@EI
@IF {@VN40} < {0} THEN
> @VN40 := {@VN40*-1}
> @VS02 := "Dn"
@EI
@MS- @VN40--- % @VS02 @A+1 

@IF {@SH00} < {0} THEN
@IF @RC = "MAJOR" THEN
> @VN50 := {@VN50+@SH01}
@EI

 @IF @VS01 = "FIRST_TIME" THEN
> @VS01 := ""
@IF {@VN90} = {1} THEN
@IF @RD = "SCREEN" THEN
                                  ────────  ────────  ───────── ───────────
@EL
@MI{@RI}                                 --------  --------  ---------   -----------
@EI
> @VN81 := {@VN81+3}  ; adjust form feed counter
> @VN01 := {0}
> @VN02 := {0}
@MS-
@EI
 @EI

@EI
@IF @RD  "SCREEN" THEN
@IF {@VN81} ≥ {@RF} THEN
@PB 
@UM"Ready to print next page."
> @VN82 := {1}
@EI
@EI
@EA
@IF @RD = "SCREEN" THEN
                                  ════════  ════════  ═════════ ═══════════
@EL
@MI{@RI}                                 ========  ========  =========   ===========
@EI